home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / util / wb / DzA_HtM.lha / dza / DzA_HtM < prev    next >
Encoding:
Text File  |  1998-03-16  |  2.7 KB  |  114 lines
  1. /*
  2. **$VER: DzA_HtML (01.03.1998) CopyRight (C) DzA©
  3. **
  4. **  $Date:01.03.1998$
  5. **  $:SoLoNGAmiGA:$
  6. */
  7. Options failat 21
  8. NL = '0a'x
  9. IF ~SHOW('LIBRARIES','rexxreqtools.library') THEN DO
  10. IF ~ADDLIB('rexxreqtools.library',10,-30,0) THEN DO
  11. SAY 'Cant Find <RexxReqtools.library> Please Install...=('
  12. EXIT(10)
  13. END
  14. END               
  15. /* Start */
  16. stcommand:
  17. call rtezrequest("Welcome to HtmL...",, 
  18.                       "HtmL","DzA",'rt_reqpos=reqpos_centerscr rtez_flags=ezreqf_centertext')
  19.  
  20. acommand:
  21. aa=ab
  22. file = rtfilerequest('Ram:', , "Choose File(s) for HtmL", ,,
  23.              "rt_reqpos=reqpos_centerscr rtfi_flags = freqf_patgad|freqf_selectdirs|
  24. freqf_selectdirs|freqf_multiselect rtfi_matchpat=#?")
  25.  
  26.  
  27. if file = '' then call errcommand
  28. bcommand:
  29. ab=ac
  30. dir = rtfilerequest('Ram:', , "Path and NaME for HtmL", ,,
  31.             "rt_reqpos=reqpos_centerscr rtfi_flags = freqf_save")
  32.  
  33. if dir = '' then call errcommand
  34. ldir = left(dir,9)
  35. if ldir = 'Ram Disk:' then dir = delstr(dir,4,5)
  36.  
  37. ncommand:
  38. nc=ad
  39. nfile = rtgetstring("", , "EnteR IndeX NamE","HtmL")
  40. if nfile == "" then
  41.   call rtezrequest("You Entered Nothing!", "Hmm","HtmL")
  42.  
  43. if nfile = '' then call errcommand
  44.  
  45. /* Commands */
  46. xncommand:
  47. rfile = left(file,9)
  48. if rfile='Ram Disk:' then call xcommand
  49. call time 'R'
  50. address command
  51. say open('xx',dir'.html','W')
  52. say writeln('xx','<html>
  53. <head>
  54. <meta name="GENERATOR" content="DzA_HtM">
  55. <title>Index 'nfile'</title>
  56. </head>
  57. <body bgcolor="#000000" text="#ff0000" vlink="#ff0000" link="#ffffff">
  58. <center>
  59. <p>
  60. <h2>Index for 'nfile'</h2>
  61. </center>
  62. <p>')
  63. do i = 1 to rtresult.count
  64. say writeln('xx','<a href="file://localhost/'rtresult.i'">'rtresult.i'</a><p>') 
  65. end
  66. say writeln('xx','<p><center>Html Created by DzA©</center></body></html>')
  67. call timecommand
  68. /**/
  69. xcommand:
  70. call time 'R'
  71. address command
  72. say open('xx',dir'.html','W')
  73. say writeln('xx','<html>
  74. <head>
  75. <meta name="GENERATOR" content="DzA_HtM">
  76. <title>Index 'nfile'</title>
  77. </head>
  78. <body bgcolor="#000000" text="#ff0000" vlink="#ff0000" link="#ffffff">
  79. <center>
  80. <p>
  81. <h2>Index for 'nfile'</h2>
  82. </center>
  83. <p>')
  84. do i = 1 to rtresult.count
  85. rtresult.i = delstr(rtresult.i,4,5)
  86. say open('xx',dir'.html','W')
  87. say writeln('xx','<a href="file://localhost/'rtresult.i'">'rtresult.i'</a><p>')  
  88. end
  89. say writeln('xx','<p><center><h3>Html Created by DzA©</h3></center></body></html>')
  90. call timecommand
  91. /**/
  92.  
  93. /* TIME */
  94. timecommand:
  95. call rtezrequest("Time Taken" time('E') "secs.",,
  96.       "_WoW","DzA",'rt_reqpos=reqpos_centerscr')
  97.  
  98. if rtresult == 0 then exit
  99.  
  100. /* Error */
  101. errcommand:
  102. call rtfreefilebuffer()
  103. call rtezrequest("Hmm... Don't Think So...",,
  104.       "_Oops|_Cancel","DzA",'rt_reqpos=reqpos_centerscr')
  105.  
  106. if rtresult == 0 then exit
  107. select
  108. when nc=ad then call ncommand 
  109. when aa=ab then call acommand
  110. when ab=ac then call bcommand
  111. otherwise
  112. end
  113. exit
  114.